CAAElliptical_MeanMotionFromSemiMajorAxis <-
function(a){
.Call("CAAElliptical_MeanMotionFromSemiMajorAxis", a)
}
